*0200
MAIN, CLA CLL
JMP SUB
*0377
SUB, TAD A
HLT 
*030
A, 1 
B, 2
C, 3
*0450
D, 4
$MAIN